(Fformat): Fix calculation of text property positions

of format string.

diff --git a/src/ChangeLog b/src/ChangeLog
index d45831da762d7dd5b988198dbb79fea45ad086b2..827abe51c579aa90131c160476bcae030f4f5898 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2006-07-13  Kenichi Handa  <handa@m17n.org>
+
+       * editfns.c (Fformat): Fix calculation of text property positions
+       of format string.
+
 2006-07-12  Kim F. Storm  <storm@cua.dk>
 
        * lisp.h (CHECK_TYPE): New macro for generic type checking.

diff --git a/src/editfns.c b/src/editfns.c
index 98a42855ba57f5f618a26051e664f3422dcf17c7..cf37c10a9d5a00b5c1f83315696fdb0d1231c87f 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -3886,7 +3886,7 @@ usage: (format STRING &rest OBJECTS)  */)
              /* Likewise adjust the property end position.  */
              pos = XINT (XCAR (XCDR (item)));
 
-             for (; bytepos < pos; bytepos++)
+             for (; position < pos; bytepos++)
                {
                  if (! discarded[bytepos])
                    position++, translated++;